home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_177_File Tools < prev    next >
Text File  |  1998-02-04  |  3KB  |  57 lines
  1. ItemType: WIND
  2. Rect: 200,210,600,390
  3. Style: Window
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: File Tools
  11. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global gWindowPositions¬¬---------------------¬-- This is window #31¬---------------------¬¬if objValue="Open" then ¬  -- Restore old window position¬  set cursor to watch¬  put OldWindowPosition(31) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else set the rect of window id wdid to windowRect¬  ¬  ¬  if there is a menuItem "Close" of menu "File" then¬    enable menuItem "Close" of menu "File"¬  end if¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "31" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 31 of gWindowPositions¬  if there is a menuItem "Close" of menu "File" then¬    disable menuItem "Close" of menu "File"¬  end if¬  ¬else if objValue="Suspend" then ¬  put frontWindow() into theFrontID¬  if wsGet(theFrontID,"0","HasCloseBox") <> "true" then¬    if there is a menuItem "Close" of menu "File" then¬      disable menuItem "Close" of menu "File"¬    end if¬  end if¬  ¬else if objValue="Resume" then ¬  if the short name of this background <> "Title" then ¬    lock screen¬    go cd 1 of bg "Title"¬  end if¬  if there is a menuItem "Close" of menu "File" then¬    enable menuItem "Close" of menu "File"¬  end if¬end if¬¬--end windowEvent
  12.  
  13. ItemType: LBL
  14. Rect: 64,72,176,88
  15. Text: Rebuild Title List
  16.  
  17. ItemType: LBL
  18. Rect: 64,16,257,32
  19. Text: Compact & Verify ComicBase
  20.  
  21. ItemType: LBL
  22. Rect: 64,128,223,144
  23. Text: Reset Program Settings
  24.  
  25. ItemType: TEXT
  26. Rect: 64,88,374,112
  27. TextFont: Geneva
  28. TextSize: 9
  29. Text: Makes sure that the list of titles matches the actual database. Use this if you ever find yourself choosing one title and going to another.
  30.  
  31. ItemType: TEXT
  32. Rect: 64,32,374,56
  33. TextFont: Geneva
  34. TextSize: 9
  35. Name: CompactInstructions
  36. Text: Verifies the integrity of the database and frees up any unused space.
  37.  
  38. ItemType: TEXT
  39. Rect: 64,144,374,168
  40. TextFont: Geneva
  41. TextSize: 9
  42. Text: Resets window positions, dialog options and other program settings to their standard values.
  43.  
  44. ItemType: PICT
  45. Rect: 10,16,56,59
  46. Name: Compress ComicBase Button
  47. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬send HandleCompactMenu to cd 3¬--end mouseUp
  48.  
  49. ItemType: PICT
  50. Rect: 10,128,56,171
  51. Name: Reset Preferences Button
  52. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¬Get WindowScript("Caution Alert","Reset ComicBase’s preferences?","Reset")¬¬if line 1 of it = "Reset" then ¬  send "ResetPrefs" to cd btn "Read/Write Prefs File" of cd 3¬  beep¬  Get Windowscript("Note Alert", "ComicBase’s settings were reset to their standard values.")¬end if¬¬--end mouseUp
  53.  
  54. ItemType: PICT
  55. Rect: 10,72,56,115
  56. Name: Rebuild Titles Button
  57. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬answer "Are you sure you want to rebuild the list of titles? This may take several minutes." with "Cancel" or "Rebuild"¬if it = "Rebuild" then ¬  send RebuildTitles to cd btn "Rebuild Titles List" of cd 3¬end if¬--end mouseUp¬